sele 5
SET EXCLU OFF
USE &DR&F5 index &dr&f5
SEEK KODEPAT
IF .NOT. EOF()
   IF REC_LOCK(0)
      DELE
   ENDIF
ENDIF
UNLOCK
